home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.002 / gcl-1 / gcl-1.0-diffs
Encoding:
Text File  |  1994-07-26  |  4.1 KB  |  161 lines
  1. diff -c3 -r gcl-1.0.orig/c/unixsave.c gcl-1.0/c/unixsave.c
  2. *** gcl-1.0.orig/c/unixsave.c    Sat May  7 20:44:53 1994
  3. --- gcl-1.0/c/unixsave.c    Tue Jul 26 00:55:07 1994
  4. ***************
  5. *** 105,111 ****
  6.       original = fopen(original_file, "r");
  7.   */    
  8.   
  9. !     if (stdin != original || original->_file != 0) {
  10.           fprintf(stderr, "Can't open the original file.\n");
  11.           exit(1);
  12.       }
  13. --- 105,111 ----
  14.       original = fopen(original_file, "r");
  15.   */    
  16.   
  17. !     if (stdin != original || fileno(original) != 0) {
  18.           fprintf(stderr, "Can't open the original file.\n");
  19.           exit(1);
  20.       }
  21. diff -c3 -r gcl-1.0.orig/h/cmpinclude.h gcl-1.0/h/cmpinclude.h
  22. *** gcl-1.0.orig/h/cmpinclude.h    Mon May  9 08:57:45 1994
  23. --- gcl-1.0/h/cmpinclude.h    Tue Jul 26 00:56:58 1994
  24. ***************
  25. *** 1,53 ****
  26.   
  27. - 
  28. - #ifndef __GNUC__
  29. - #define HAVE_ALLOCA
  30. - #include <alloca.h>
  31. - #endif
  32. -  /* If can mprotect pages and so selective gc will work */
  33. - #define SGC  
  34. - 
  35. - /* End for cmpinclude */
  36.   /* Begin for cmpinclude */
  37. - #ifndef __GNUC__
  38. - #define HAVE_ALLOCA
  39. - #include <alloca.h>
  40. - #endif
  41. -  /* If can mprotect pages and so selective gc will work */
  42. - #define SGC  
  43. - 
  44.   /* End for cmpinclude */
  45. - /* Begin for cmpinclude */
  46. - #ifndef __GNUC__
  47. - #define HAVE_ALLOCA
  48. - #include <alloca.h>
  49. - #endif
  50. -  /* If can mprotect pages and so selective gc will work */
  51. - #define SGC  
  52. - 
  53. - /* Begin for cmpinclude */
  54. - #ifndef __GNUC__
  55. - #define HAVE_ALLOCA
  56. - #include <alloca.h>
  57. - #endif
  58. -  /* If can mprotect pages and so selective gc will work */
  59. - #define SGC  
  60. - 
  61. - /* Begin for cmpinclude */
  62. - #ifndef __GNUC__
  63. - #define HAVE_ALLOCA
  64. - #include <alloca.h>
  65. - #endif
  66. -  /* If can mprotect pages and so selective gc will work */
  67. - #define SGC  
  68. - 
  69. - /* Begin for cmpinclude */
  70. - #ifndef __GNUC__
  71. - #define HAVE_ALLOCA
  72. - #include <alloca.h>
  73. - #endif
  74. -  /* If can mprotect pages and so selective gc will work */
  75. - #define SGC  
  76.   
  77.   
  78.   /*
  79. --- 1,6 ----
  80. diff -c3 -r gcl-1.0.orig/unixport/makefile gcl-1.0/unixport/makefile
  81. *** gcl-1.0.orig/unixport/makefile    Mon May  9 08:57:41 1994
  82. --- gcl-1.0/unixport/makefile    Tue Jul 26 00:57:58 1994
  83. ***************
  84. *** 64,70 ****
  85.   
  86.   # end makedefs
  87.   
  88. ! LIBS1= $(LIBS) $(GCLIB)
  89.   
  90.   
  91.   
  92. --- 64,70 ----
  93.   
  94.   # end makedefs
  95.   
  96. ! LIBS1= $(GCLIB) $(LIBS)
  97.   
  98.   
  99.   
  100. ***************
  101. *** 161,167 ****
  102.           else make raw_$(GCL)1 "SYS_GCL=sys_boot.o" ; fi 
  103.   
  104.   raw_$(GCL)1: $(SYS_GCL)
  105. !     $(LDCC)  -o raw_$(GCL) $(FOR_RAW) $(SYS_GCL) -lc $(LIBS1)
  106.   
  107.   saved_gcl_boot:
  108.       make raw_$(GCL)1 "SYS_GCL=sys_boot.o"
  109. --- 161,167 ----
  110.           else make raw_$(GCL)1 "SYS_GCL=sys_boot.o" ; fi 
  111.   
  112.   raw_$(GCL)1: $(SYS_GCL)
  113. !     $(LDCC)  -o raw_$(GCL) $(FOR_RAW) $(SYS_GCL) $(LIBS1) -lc
  114.   
  115.   saved_gcl_boot:
  116.       make raw_$(GCL)1 "SYS_GCL=sys_boot.o"
  117. diff -c3 -r gcl-1.0.orig/cmpnew/cmpmain.lsp gcl-1.0/cmpnew/cmpmain.lsp
  118. *** gcl-1.0.orig/cmpnew/cmpmain.lsp    Sat May  7 20:43:57 1994
  119. --- gcl-1.0/cmpnew/cmpmain.lsp    Tue Jul 26 03:47:40 1994
  120. ***************
  121. *** 98,103 ****
  122. --- 98,107 ----
  123.         (setf (third *split-files*)(file-position *compiler-input*)))))
  124.         
  125.   
  126. + #+ld-not-accept-data
  127. + ;; Remember the last data file so we can delete it when we are done.
  128. + (defvar *last-data-file* nil)
  129. + 
  130.   (defun compile-file  (&rest args
  131.                   &aux (*print-pretty* nil)
  132.                   (*package* *package*) (*split-files* *split-files*)
  133. ***************
  134. *** 370,376 ****
  135.                 )))
  136.             (unless c-file (delete-file c-pathname))
  137.             (unless h-file (delete-file h-pathname))
  138. !           (unless (or data-file #+ld-not-accept-data system-p) (delete-file data-pathname))
  139.         o-pathname)
  140.   
  141.           (progn
  142. --- 374,381 ----
  143.                 )))
  144.             (unless c-file (delete-file c-pathname))
  145.             (unless h-file (delete-file h-pathname))
  146. !           #-ld-not-accept-data (unless data-file (delete-file data-pathname))
  147. !           #+ld-not-accept-data (setq *last-data-file* data-pathname)
  148.         o-pathname)
  149.   
  150.           (progn
  151. ***************
  152. *** 424,429 ****
  153. --- 429,435 ----
  154.          (let ((fi (compile-file gaz)))
  155.            (load fi)
  156.            (delete-file fi)
  157. +          #+ld-not-accept-data (when *last-data-file* (delete-file *last-data-file*))
  158.            (delete-file gaz)
  159.            (or (eq na name) (setf (symbol-function name) (symbol-function na)))
  160.            (symbol-function name)
  161.